program aula01;

uses
        crt;

var
        s1, s2: string;
begin
        clrscr;

        write('Informe um Nome: ');
        readln(s1);

        write('Informe Outro Nome: ');
        readln(s2);

        if s1 > s2 then
        begin
                writeln('O nome ', s1, ' vem depois do nome ', s2);
        end
        else
        begin
                if s1 = s2 then
                begin
                        writeln('Os nomes ', s1 , ' e ', s2, ' sao iguais');
                end
                else
                begin
                        writeln('O nome ', s2 ,' vem depois do nome ', s1);
                end;
        end;
        readkey;
end.